unit SmallStruct.Script.TSSScript;

interface

uses Classes,
  SmallStruct.Core.TSSObject,
  SmallStruct.Script;

type
  TSSScript = class(TSSObject, ISSScript)
  private
    _Script: TStringList;
  public
    function GetScript: TStringList;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

implementation

{ TSSScript }

constructor TSSScript.Create(AOwner: TComponent);
begin
  inherited;
  _Script := TStringList.Create;
end;

destructor TSSScript.Destroy;
begin
  _Script.Free;
  inherited;
end;

function TSSScript.GetScript: TStringList;
begin
  Result := _Script;
end;

end.
